1 Topic by AD1408

(0 replies, posted in General)

Hi All,
I couldn't get linked RTF working, when adding/editing/deleting on same form (form1).
Please see the attached project file below:

Go to forum: General

2 Reply by AD1408

(17 replies, posted in General)

Hi Derek,
Thank you very much for the simple, solid and clean solution..........
It certainly comes very close to what I was trying to achieve, 95% there and I can happily live with 95%.
When I need more graphical and connection to a tab page fx, I can always use onClick event version by skipping hover fx.

Go to forum: General

3 Reply by AD1408

(17 replies, posted in General)

Hi Derek,


Thank you very much for your sample project. Indeed, it's simple and clean.


What I was trying to achieve is maximum possible visual customization of tabs. I came close to it with using onClick event only  (sample project below) . However, I couldn't get mouse enter and leave events working together correctly.

Go to forum: General

4 Reply by AD1408

(3 replies, posted in General)

Hi Sparrow,
Thank you very much for your kind share. It's beyond me but I cannot deny appreciation of this nice work.

Go to forum: General

5 Reply by AD1408

(17 replies, posted in General)

Hi Sparrow,
Thank you very much for your reply with a nice and easy to understand explanation. I already have done those and posted the sample project "Tab Widths Heights Derek Work 2.zip " above on post #10.
Unfortunately, my single cell brain couldn't solve the issues mentioned.
1. Trying to have 3 states of each image tab. Default, highlight and pressed down.
2. During mouse enter and exit getting bad flicker.

Go to forum: General

6 Reply by AD1408

(17 replies, posted in General)

AD1408 wrote:

Hi Guys,
I have tried to make a colorful image based PG tabs. However, I have two issues I couldn't solve:
1. Trying to have 3 states of each image tab. Default, highlight and pressed down.
2. During mouse enter and exit getting bad flicker.

Added an image. Looks like only one file attachment per post.

Go to forum: General

7 Reply by AD1408

(17 replies, posted in General)

Hi Guys,
I have tried to make a colorful image based PG tabs. However, I have two issues I couldn't solve:
1. Trying to have 3 states of each image tab. Default, highlight and pressed down.
2. During mouse enter and exit getting bad flicker.

Go to forum: General

8 Reply by AD1408

(17 replies, posted in General)

Hi Derek,
Thank you very much for the latest example..... Truly appreciated.....
I loved this: "THE END, NO MORE, NICHTS, NADA, RIEN, FINITO!
GOODBYE CRUEL WORLD...."


Hi Sparrow,
I hope all things are OK at your end.
Thank you very much for your kind help. It's the simplest solution.
If possible; next step would be to adjust each tab sizes individually. Something like the below incorrect script.
form1.PageControl1.TabSheet1.TabWidth := 30;

Go to forum: General

9 Reply by AD1408

(17 replies, posted in General)

Hi Derek, Hi JB,
Thank you for your kind replies.............
Derek, special hanks for the sample.........
I guess, my second question of "How to disable pasting image (Ctrl+V) into RTF editor." is also not possible.

Go to forum: General

10 Topic by AD1408

(17 replies, posted in General)

Hi All,
Is it possible to change the width of Page Control tabs.
By default there is a minimum width fixed. I need to reduce the default width of tabs.


edit:
In addition to above, another question:
How to disable pasting image (Ctrl+V) into RTF editor.

Go to forum: General

11 Reply by AD1408

(4 replies, posted in General)

Hi Derek,
Thank you very much........
"tdbPanel(form2.components[vi]).styleelements := 0;" seems to work fine for me.
The World needs many more Dereks.
God bless you.............................

Go to forum: General

12 Reply by AD1408

(4 replies, posted in General)

Hi Derek,
Thank you very much....
I like your component level customization using "styleelements :=2"
Added a line for panel with a custom color but custom color is not displayed for me

if form2.components[vi] is tdbPanel then tdbPanel(form2.components[vi]).styleelements := 2;

Go to forum: General

13 Topic by AD1408

(4 replies, posted in General)

Hi All,
I like to use styles and certain parts of styles items disable in favor of custom colors:

begin
form1.PanelHomeName.styleelements := 0;
end.

My question is, using many (i.e. 30 - 50) ".styleelements := 0" would cause noticeable speed degradation on starting of the app?

Go to forum: General

14 Reply by AD1408

(4 replies, posted in General)

Hi Derek,
That's a very useful stuff... Thank you very much......

Go to forum: General

15 Reply by AD1408

(2 replies, posted in General)

Hi Derek,
Thank you very much..................
It's hard to believe I missed that.

Go to forum: General

16 Topic by AD1408

(2 replies, posted in General)

Hi Derek (Genius of simplicity),


I'm trying to create an app for my son to help him with his business for keeping his head over the water.
I'm trying to keep things as much as simple.
I have used your Cash Register sample that you have posted sometime ago.
However, I couldn't get the calculated currency field decimals displaying correctly, unlike yours one.

Go to forum: General

17 Reply by AD1408

(10 replies, posted in General)

Hi Derek,
Thank you very much for your kind help..........
I was thinking a similar type of logic but I couldn't put into script properly.
Error is gone but still not focusing on the first row of the tg (first row of tg has a data , > -1) after clicking tview cell with data.

Go to forum: General

18 Reply by AD1408

(10 replies, posted in General)

Thanks a lot Derek..........
I've deleted header imgs etc., in order reduce the file size.
Beside above mentioned error, I'm trying to correct other stuff such as getting linked RTF work, on Notes section added records not displaying and so on.

Go to forum: General

19 Reply by AD1408

(10 replies, posted in General)

Hi All,


Please see the image below:
I was using the the script for multiple treviews on tabsheets, form1 by changing tree and tg names. On first one worked fine but rest produced the error on the image. I was thinking until tree cell clicked script is not activated, and looks like I was thinking wrong. Any suggestion/ solution?

Go to forum: General

20 Reply by AD1408

(10 replies, posted in General)

Hi Derek,
Your clear explanation is great.
Truly appreciated..........

Go to forum: General

21 Reply by AD1408

(10 replies, posted in General)

Hi Derek,
Thank you very much for your kind help.........
Yes, After that many checking all things, I still missed that DB table name error caused by me. It should have have been "JournalTree"
Correcting table name didn't end the issue. After your pointer, I deleted sqlite.db file and that solved the issue. Looks like sqlite DB doesn't update itself properly even after pointing to the correct DB table. learned something new thanks to you.

Go to forum: General

22 Topic by AD1408

(10 replies, posted in General)

Hi All,
I just couldn't work out nodes move up and down issue on "Journal" section.
Same script works on Tasks section but not on Journal section?
Please see attached test project.

Go to forum: General

23 Reply by AD1408

(11 replies, posted in General)

Hi Derek,
Thank you very much for your kind help and your patience..........
I sent my prayers to God to reserve one of the best place for you.....

Go to forum: General

24 Reply by AD1408

(11 replies, posted in General)

Hi Derek,
Thanks for the quick reply.
However, still no go for me.
Please see the attached file, containing your script only.

Go to forum: General

25 Reply by AD1408

(11 replies, posted in General)

Hi Derek,
With TabVisible I get Undeclared identifier error.

procedure TreeView3OnClick2;
begin
hidealltabsheets;
if form1.TreeView3.cells[1,form1.TreeView3.selectedrow] = 'TASK'    then form1.TreeView3.TabVisible := true else
if form1.TreeView3.cells[1,form1.TreeView3.selectedrow] = 'MEMO'    then form1.TreeView3.TabVisible := true else
if form1.TreeView3.cells[1,form1.TreeView3.selectedrow] = 'JOURNAL' then form1.TreeView3.TabVisible := true;
end;

Go to forum: General