Delphi Pages Forums  

Go Back   Delphi Pages Forums > Search Forums

Lost Password?

Showing results 1 to 50 of 500
Search took 0.09 seconds.
Search: Posts Made By: kolbasz
Forum: General 09-17-2018, 10:12 AM
Replies: 6
Views: 96
Posted By kolbasz
Perhaps you should implement your own MessageDlg...

Perhaps you should implement your own MessageDlg with fsStayOnTop FormStyle, like this:
function MyMessageDlg(const AMsg: string; ADlgType: TMsgDlgType;
AButtons: TMsgDlgButtons; AParent: TForm):...
Forum: General 05-16-2018, 09:57 AM
Replies: 1
Views: 848
Posted By kolbasz
Contrary to the popular belief, it's perfectly...

Contrary to the popular belief, it's perfectly fine to pass strings over dll boundary, like this(see attachment, Delphi 2007):
library CallbackDll;

uses
SysUtils,
Classes;

{$R *.res}
...
Forum: General 04-26-2018, 07:49 PM
Replies: 11
Views: 1,059
Posted By kolbasz
@Jung What is the exact error message? Put the...

@Jung
What is the exact error message? Put the following code, after the delete method:
ShowMessage(SysErrorMessage(GetLastError))
<code>
</code>
Forum: General 04-26-2018, 10:53 AM
Replies: 3
Views: 1,193
Posted By kolbasz
@Ouiji Try this: const Numbers:...

@Ouiji

Try this:
const
Numbers: string = '90 10 60 40 73 0 38 9 44 565 4 34 31 90 10 883 89 73 0 32 ';

type
TAI = array of Integer;

procedure ParseNumbers(ANumber: String; var AI:...
Forum: General 03-17-2016, 07:07 AM
Replies: 2
Views: 1,235
Posted By kolbasz
Hi GeoWink, You're inside a with: "with...

Hi GeoWink,

You're inside a with: "with ABSQuery1 do". Eof is a valid method both for the ABSQuery1 and FF, this is the origin of the confusion.
Always use with with great care or even better...
Forum: General 03-14-2016, 08:38 PM
Replies: 24
[SOLVED] Conversion
Views: 2,919
Posted By kolbasz
Please try one of this: ...

Please try one of this:
http://stackoverflow.com/questions/3308049/converting-strings-to-hex-in-a-performant-way
Forum: General 02-23-2016, 02:05 PM
Replies: 10
Views: 2,236
Posted By kolbasz
AFAIK the answer is no! You cannot adjust the...

AFAIK the answer is no! You cannot adjust the volume per application with TWaveAdudio component. Per system you can!
Forum: General 02-11-2016, 07:42 PM
Replies: 14
[SOLVED] items as string
Views: 1,853
Posted By kolbasz
You did something else, not what I told you....

You did something else, not what I told you. Anyway check attachment...Please test and report back.
Forum: General 02-11-2016, 06:43 PM
Replies: 14
[SOLVED] items as string
Views: 1,853
Posted By kolbasz
Robert, I cannot debug images, attach the source...

Robert, I cannot debug images, attach the source code zipped.
Forum: General 02-11-2016, 05:26 PM
Replies: 14
[SOLVED] items as string
Views: 1,853
Posted By kolbasz
Ok, then attach a small demo application(source...

Ok, then attach a small demo application(source without the executable) that demonstrates the problem. Please do not attach something complicated, just this 3 memo to listview issue. And also specify...
Forum: General 02-11-2016, 05:06 PM
Replies: 14
[SOLVED] items as string
Views: 1,853
Posted By kolbasz
Of course you get an access violation, according...

Of course you get an access violation, according to your screenshot there is only one subitem, so Subitems.Strings[1] will give you an access violation. I was hopping that you change the code...
Forum: General 02-11-2016, 09:24 AM
Replies: 14
[SOLVED] items as string
Views: 1,853
Posted By kolbasz
You need a separate loop for this: for I...

You need a separate loop for this:

for I := ListView1.Items.Count - 1 downto 0 do
if ListView1.Items.Item[I].Checked then
ListView1.Items.Delete(I);
Forum: General 02-11-2016, 09:03 AM
Replies: 14
[SOLVED] items as string
Views: 1,853
Posted By kolbasz
I guess you want the reverse of what you did in...

I guess you want the reverse of what you did in your previous thread:

var
I: Integer;
begin
for I := 0 to ListView1.Items.Count - 1 do
begin
if ListView1.Items.Item[I].Checked then...
Forum: General 02-08-2016, 12:02 PM
Replies: 13
Views: 2,041
Posted By kolbasz
I suppose Memo1.Lines.Count = Memo2.Lines.Count =...

I suppose Memo1.Lines.Count = Memo2.Lines.Count = Memo3.Lines.Count otherwise this makes no sense at all. You should check this first, if not the below code will explode:

for I := 0 to...
Forum: General 02-01-2016, 09:14 AM
Replies: 4
Views: 1,317
Posted By kolbasz
It's absolutely not clear what are you after,...

It's absolutely not clear what are you after, first you call ShowModal, then somehow you want the form to be invisible. Then why call ShowModal in the first place? Anyway a form is visible only if is...
Forum: General 01-28-2016, 09:01 AM
Replies: 1
Views: 1,221
Posted By kolbasz
Download the demo apps: ...

Download the demo apps:
www.soft-gems.net/index.php/all-downloads (http://www.soft-gems.net/index.php/all-downloads)
See: Advanced dir
Forum: General 01-08-2016, 10:59 AM
Replies: 13
Views: 2,776
Posted By kolbasz
@rmt Is this your Delphi5 application? If yes...

@rmt
Is this your Delphi5 application? If yes then try with your old dll's, the ones that worked under xp, windows7. In fact I would try to run the old application after the UAC is disabled.

PS:...
Forum: General 01-07-2016, 09:19 AM
Replies: 13
Views: 2,776
Posted By kolbasz
Well, in this case, I'm almost certain we are...

Well, in this case, I'm almost certain we are talking about a privilege issue. Is UAC enabled? Try to disable it or run the program as admin(right click, then "Run as Admin"). Win 10 is more...
Forum: General 01-07-2016, 07:48 AM
Replies: 13
Views: 2,776
Posted By kolbasz
Did you copy the required dll's to the windows 10...

Did you copy the required dll's to the windows 10 machine? Namely: -ssleay32.dll
-libeay32.dll
If not, you can download it from here(for 32 bit applications):...
Forum: General 01-07-2016, 05:54 AM
Replies: 13
Views: 2,776
Posted By kolbasz
That's not very helpful. Any exceptions, errors? ...

That's not very helpful. Any exceptions, errors?
Please do the following:
1. Disable antivirus software(if any)
2. Add your application to windows firewall exclusion list: a. Type "Firewall"...
Forum: General 12-26-2015, 12:10 PM
Replies: 3
Views: 1,992
Posted By kolbasz
Maybe a third party command line tool: ...

Maybe a third party command line tool:
http://www.softinterface.com/Convert-XLS/Features/Convert-XLS-To-XLSX.htm
Probably there are many more. Please do a quick google search.
Forum: General 12-26-2015, 08:51 AM
Replies: 3
Views: 1,992
Posted By kolbasz
You cannot export it to XLSX, because it's not...

You cannot export it to XLSX, because it's not supported by the report generator.
Forum: General 12-23-2015, 07:50 PM
Replies: 5
Views: 4,308
Posted By kolbasz
What is so special about GMLib? Anyway after a...

What is so special about GMLib? Anyway after a quick google search, I downloaded the latest version from here:
https://drive.google.com/folderview?id=0BxqewUbRmUsOQ2ttRVV2YjNDX28&usp=sharing
There...
Forum: General 12-23-2015, 06:29 PM
Replies: 5
Views: 4,308
Posted By kolbasz
Full working example: ...

Full working example:
https://theroadtodelphi.wordpress.com/2015/10/19/important-note-about-using-the-google-maps-api-from-desktop-apps/
Forum: General 12-22-2015, 06:44 AM
Replies: 4
Views: 2,552
Posted By kolbasz
Perhaps you should save the position and size of...

Perhaps you should save the position and size of your form when the screensaver starts, and restore it when the screensaver ends. I'm sure you can find similar examples on the net.
Forum: General 12-22-2015, 06:23 AM
Replies: 7
Views: 2,149
Posted By kolbasz
Did you see Glenn1234's post?

Did you see Glenn1234's post?
Forum: General 12-22-2015, 06:20 AM
Replies: 10
Pos
Views: 2,976
Posted By kolbasz
@robert and :D

@robert
and
:D
Forum: General 12-18-2015, 01:49 PM
Replies: 14
Views: 3,765
Posted By kolbasz
Yes I saw the download link, unfortunately I...

Yes I saw the download link, unfortunately I don't have XE5.
What not works exactly? The rectangle is at the wrong place?
Forum: General 12-18-2015, 05:46 AM
Replies: 14
Views: 3,765
Posted By kolbasz
Yes it does, but as I mentioned in my previous...

Yes it does, but as I mentioned in my previous post you have to change the params. order in CreateRectRgn. So insted of :
HoleRegion := CreateRectRgn(X1, X2, Y1, Y2);you need
HoleRegion :=...
Forum: General 12-17-2015, 06:32 PM
Replies: 14
Views: 3,765
Posted By kolbasz
Yes, now it's correct! HoleRegion :=...

Yes, now it's correct!
HoleRegion := CreateRectRgn(X1, Y1, X2, Y2); // <--also change this

One more thing, instead of StrToInt use StrToIntDef, because if something goes wrong, you won't get an...
Forum: General 12-17-2015, 05:42 PM
Replies: 14
Views: 3,765
Posted By kolbasz
Oh, wait...you send in the following order: ...

Oh, wait...you send in the following order:
Socket.SendText(X1, Y1, X2, Y2)
then on the other side:
X1:= Round(StrToInt(List[0])*Screen.Width/65536);
X2:=...
Forum: General 12-17-2015, 05:17 PM
Replies: 14
Views: 3,765
Posted By kolbasz
Yes! It works properly?

Yes! It works properly?
Forum: General 12-17-2015, 12:43 PM
Replies: 14
Views: 3,765
Posted By kolbasz
var X1, X2, Y1, Y2: Integer; X1_Screen,...

var
X1, X2, Y1, Y2: Integer;
X1_Screen, X2_Screen, Y1_Screen, Y2_Screen: Integer;
begin
X1 := ClientToWindow(FSelection.TopLeft).X;
X1_Screen := Round(X1*65536/Screen.Width);
Y1 :=...
Forum: General 12-17-2015, 09:28 AM
Replies: 14
Views: 3,765
Posted By kolbasz
Hi Luiz Eduardo, Try this: Before send...

Hi Luiz Eduardo,

Try this:

Before send do this conversion for X, Y:

xScreen := Round(x*65536/Screen.Width); //send xScreenOn receive:

x := Round(xScreen*Screen.Width/65536);regards,...
Forum: General 12-13-2015, 08:25 AM
Replies: 7
Views: 2,149
Posted By kolbasz
Ok, this will work only for: 0 < a, b < 10 ...

Ok, this will work only for: 0 < a, b < 10


type
TOpertaion = (opAdd, opSubstract);

function Convert(const a, b: Integer; const Operation: TOpertaion): Integer;
begin
case Operation of...
Forum: General 12-10-2015, 06:12 PM
Replies: 55
Views: 10,632
Posted By kolbasz
In my opinion the GUI looks great now. Publish...

In my opinion the GUI looks great now. Publish your project and ask other people's opinion as well.
Forum: General 12-10-2015, 12:16 PM
Replies: 55
Views: 10,632
Posted By kolbasz
Just an idea...what if you put all into a...

Just an idea...what if you put all into a listview? It would look nicer, more symmetrical, but there is a lot of work with it.
Forum: General 12-10-2015, 11:15 AM
Replies: 55
Views: 10,632
Posted By kolbasz
Looks great, unfortunately I cannot test it...

Looks great, unfortunately I cannot test it because I don't have VirtualBox. Regarding the source...I would use some code folding. This way it looks more compact and you can find stuff more easily.
...
Forum: General 12-10-2015, 10:10 AM
Replies: 55
Views: 10,632
Posted By kolbasz
This is usually happens when you upgrade a...

This is usually happens when you upgrade a project to a higher version of delphi. Always recreate the project with the newer version ,then add each unit one by one.
Forum: General 12-10-2015, 09:34 AM
Replies: 55
Views: 10,632
Posted By kolbasz
In your project folder, you should have separate...

In your project folder, you should have separate directories for each architecture: Win32, Win64. Do you have those directories for binary files? Did you set the library path for the components(both...
Forum: VCL 12-09-2015, 11:19 AM
Replies: 15
Views: 3,612
Posted By kolbasz
I'm not sure what are you trying to achieve. ...

I'm not sure what are you trying to achieve.

I would look how delphi controls/components are written. Ctrl + Click to a TForm or a TButton and see how it's implemented.
Forum: General 12-08-2015, 01:56 PM
Replies: 55
Views: 10,632
Posted By kolbasz
Like I said it takes a little while until you get...

Like I said it takes a little while until you get use to it. Did you manage to implement the drag/drop of the rows?
Forum: General 12-08-2015, 12:11 PM
Replies: 55
Views: 10,632
Posted By kolbasz
Did you set...

Did you set TreeOptions-->MiscOptions-->toFullRowDrag to True?
Forum: General 12-07-2015, 04:40 PM
Replies: 55
Views: 10,632
Posted By kolbasz
That's because half out of the twelve png it's...

That's because half out of the twelve png it's basically your icon file converted to png, especially the hardware related icons. I did try to cut out the margins with an image editor, to simulate the...
Forum: General 12-07-2015, 03:51 PM
Replies: 55
Views: 10,632
Posted By kolbasz
You're welcome! I'm glad it's working. I...

You're welcome! I'm glad it's working.


I added manually at design time. For a few images I usually don't use resources.
Forum: General 12-07-2015, 01:51 PM
Replies: 55
Views: 10,632
Posted By kolbasz
It's up to you, but having more possibility it's...

It's up to you, but having more possibility it's better I guess.

Try now(attachment). Remove the old one completely.
Forum: General 12-07-2015, 12:22 PM
Replies: 55
Views: 10,632
Posted By kolbasz
Ok. I was busy making some png's. Unfortunately...

Ok. I was busy making some png's. Unfortunately what I told you yesterday it's true. Although you can add png's to TImageList the transparency it's pretty crappy. So I switched to TPngImageList(I...
Forum: General 12-07-2015, 09:45 AM
Replies: 55
Views: 10,632
Posted By kolbasz
Yes, looks good. One more: Move Up, Move Down,...

Yes, looks good. One more: Move Up, Move Down, Refresh images(see attachment). Make a screenshot...let's see how it looks :)
Forum: VCL 12-07-2015, 08:54 AM
Replies: 15
Views: 3,612
Posted By kolbasz
Hi Merovingio, Yes it's possible. Use...

Hi Merovingio,

Yes it's possible. Use procedure of object, like this:

type
TOnCommand = procedure (Sender: TObject; ACommand: String) of object;
TYourClass = class
private
//..
...
Forum: General 12-07-2015, 08:45 AM
Replies: 8
Views: 3,018
Posted By kolbasz
@drama22 Thank you for your kind words, but...

@drama22

Thank you for your kind words, but to be honest you asking too much. I try to help as many people as I can, but to rewrite a whole application it's way too much, besides I only have XE4,...
Showing results 1 to 50 of 500

 
Forum Jump

All times are GMT. The time now is 01:54 AM.


Powered by vBulletin® Version 3.8.8
Copyright ©2000 - 2018, vBulletin Solutions, Inc.