1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
|
{
fpGUI - Free Pascal GUI Library
Copyright (C) 2006 - 2008 See the file AUTHORS.txt, included in this
distribution, for details of the copyright.
See the file COPYING.modifiedLGPL, included in this distribution,
for details about redistributing fpGUI.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
Description:
Defines a edit ComboBox control with auto-complete feature.
}
unit gui_editcombo;
{$mode objfpc}{$H+}
{.$Define DEBUG}
{
***********************************************************
********** This is still under development! ***********
***********************************************************
It needs lots of testing and debugging.
}
{ TODO: Needs a lot of refactoring to get rid of code duplication. }
{
This is an example of what we can aim for:
You need a mono font to see the correct layout.
TfpgBaseComboBox
_________|______________
| |
TfpgBaseStaticCombo TfpgBaseEditCombo
______|_________ |
| | TfpgEditCombo
| |
TfpgComboBox TfpgBaseColorCombo
|
TfpgColorComboBox
}
interface
uses
Classes,
SysUtils,
gfx_widget,
gfxbase,
fpgfx,
gfx_popupwindow;
type
TAllowNew = (anNo, anYes, anAsk);
TfpgAbstractEditCombo = class(TfpgWidget)
private
FAutoCompletion: Boolean;
FAutoDropDown: Boolean;
FAllowNew: TAllowNew;
FDropDownCount: integer;
FText: string;
FSelectedItem: integer;
FMaxLength: integer;
FFocusItem: integer;
FFont: TfpgFont;
FInternalBtnRect: TfpgRect;
FItems: TStringList;
FOnChange: TNotifyEvent;
FNewItem: boolean;
function GetFontDesc: string;
procedure SetAllowNew(const AValue: TAllowNew);
procedure SetDropDownCount(const AValue: integer);
procedure InternalBtnClick(Sender: TObject);
procedure InternalListBoxSelect(Sender: TObject);
procedure SetFocusItem(const AValue: integer);
procedure SetFontDesc(const AValue: string);
procedure CalculateInternalButtonRect;
procedure MsgPopupClose(var msg: TfpgMessageRec); message FPGM_POPUPCLOSE;
protected
FMargin: integer;
FBtnPressed: Boolean;
FDropDown: TfpgPopupWindow;
FDrawOffset: integer;
FSelStart: integer;
FSelOffset: integer;
FCursorPos: integer;
procedure DoDropDown; virtual;
function GetText: string; virtual;
function HasText: boolean; virtual;
procedure SetText(const AValue: string); virtual;
procedure SetHeight(const AValue: TfpgCoord); override;
procedure SetWidth(const AValue: TfpgCoord); override;
procedure HandleKeyChar(var AText: TfpgChar; var shiftstate: TShiftState; var consumed: Boolean); override;
procedure HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: Boolean); override;
procedure HandleLMouseDown(x, y: integer; shiftstate: TShiftState); override;
procedure HandleLMouseUp(x, y: integer; shiftstate: TShiftState); override;
procedure HandleResize(awidth, aheight: TfpgCoord); override;
procedure HandlePaint; override;
procedure PaintInternalButton; virtual;
property DropDownCount: integer read FDropDownCount write SetDropDownCount default 8;
// property is 0-based
property Items: TStringList read FItems; {$Note Make this read/write}
// property is 1-based
property FocusItem: integer read FFocusItem write SetFocusItem;
property AutoCompletion: Boolean read FAutocompletion write FAutoCompletion default False;
property AutoDropDown: Boolean read FAutoDropDown write FAutoDropDown default False;
property AllowNew: TAllowNew read FAllowNew write SetAllowNew default anNo;
property BackgroundColor: TfpgColor read FBackgroundColor write SetBackgroundColor default clBoxColor;
property TextColor: TfpgColor read FTextColor write SetTextColor default clText1;
property FontDesc: string read GetFontDesc write SetFontDesc;
property OnChange: TNotifyEvent read FOnChange write FOnChange;
property Text: string read GetText write SetText;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Update;
property Font: TfpgFont read FFont;
property NewText: boolean read FNewItem;
end;
TfpgEditCombo = class(TfpgAbstractEditCombo)
published
property AutoCompletion;
property AutoDropDown;
property AllowNew;
property BackgroundColor;
property DropDownCount;
property FocusItem;
property FontDesc;
property Height;
property Items;
property Text;
property TextColor;
property Width;
property OnChange;
end;
function CreateEditCombo(AOwner: TComponent; x, y, w: TfpgCoord; AList:TStringList): TfpgEditCombo;
implementation
uses
gui_listbox,
gfx_UTF8utils,
math;
var
OriginalFocusRoot: TfpgWidget;
type
{ This is the class representing the dropdown window of the combo box. }
TDropDownWindow = class(TfpgPopupWindow)
private
FCallerWidget: TfpgWidget;
protected
procedure HandlePaint; override;
procedure HandleKeyChar(var AText: TfpgChar; var shiftstate: TShiftState; var consumed: Boolean); override;
procedure HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
procedure HandleShow; override;
procedure HandleHide; override;
public
constructor Create(AOwner: TComponent); override;
ListBox: TfpgListBox;
property CallerWidget: TfpgWidget read FCallerWidget write FCallerWidget;
end;
{ TDropDownWindow }
procedure TDropDownWindow.HandlePaint;
begin
Canvas.BeginDraw;
// inherited HandlePaint;
Canvas.Clear(clWhite);
Canvas.EndDraw;
end;
procedure TDropDownWindow.HandleKeyChar(var AText: TfpgChar;
var shiftstate: TShiftState; var consumed: Boolean);
begin
if TfpgEditCombo(FCallerWidget).FAutoCompletion then
TfpgEditCombo(FCallerWidget).HandleKeyChar(AText,shiftstate,consumed);
end;
procedure TDropDownWindow.HandleKeyPress(var keycode: word;
var shiftstate: TShiftState; var consumed: boolean);
begin
if TfpgEditCombo(FCallerWidget).FAutoCompletion then
begin
TfpgEditCombo(FCallerWidget).HandleKeyPress(keycode,shiftstate,consumed);
// consumed:= True;
end
else
begin
inherited HandleKeyPress(keycode, shiftstate, consumed);
if keycode = keyEscape then
begin
consumed := True;
Close;
end;
end;
end;
procedure TDropDownWindow.HandleShow;
begin
ListBox.SetPosition(0, 0, Width, Height);
inherited HandleShow;
ActiveWidget := ListBox;
end;
procedure TDropDownWindow.HandleHide;
begin
// HandleHide also gets called in TfpgWidget.Destroy so we need a few
// if Assigned() tests here. This should be improved on.
// if Assigned(FocusRootWidget) then
// FocusRootWidget.ReleaseMouse; // for internal ListBox
FocusRootWidget := OriginalFocusRoot;
OriginalFocusRoot := nil;
inherited HandleHide;
if Assigned(FocusRootWidget) then
FocusRootWidget.SetFocus;
end;
constructor TDropDownWindow.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ListBox := TfpgListBox.Create(self);
ListBox.PopupFrame := True;
end;
function CreateEditCombo(AOwner: TComponent; x, y, w: TfpgCoord;
AList: TStringList): TfpgEditCombo;
begin
Result := TfpgEditCombo.Create(AOwner);
Result.Left := x;
Result.Top := y;
Result.Width := w;
Result.Focusable := True;
Result.Height := 23; // replace this with font height + margins
{$Note We still need to handle the AList param as well.}
end;
{ TfpgAbstractEditCombo }
procedure TfpgAbstractEditCombo.SetDropDownCount(const AValue: integer);
begin
if FDropDownCount = AValue then
Exit;
FDropDownCount := AValue;
end;
procedure TfpgAbstractEditCombo.SetAllowNew(const AValue: TAllowNew);
begin
if FAllowNew <> AValue then
FAllowNew:= AValue;
end;
function TfpgAbstractEditCombo.GetFontDesc: string;
begin
Result := FFont.FontDesc;
end;
function TfpgAbstractEditCombo.GetText: string;
var
i: integer;
begin
if FAutoCompletion then
begin
if (FocusItem > 0) and (FocusItem <= FItems.Count) then
begin
FText := FItems.Strings[FocusItem-1];
FSelectedItem:= FocusItem-1;
end
else
if FText <> '' then
if FSelectedItem < -1 then
begin
if Assigned(FDropDown) then
FDropDown.Close;
inc(FSelectedItem); // with FSelectedItem set to -2 for delet key and -4 for return key
end
else
begin
FSelectedItem := -1;
if Assigned(FDropDown) then
FDropDown.Close;
for i := 0 to FItems.Count - 1 do
begin
if SameText(UTF8Copy(FItems.Strings[i], 1, UTF8Length(FText)), FText) then
begin
FSelectedItem := i;
if AutoDropDown then
DoDropDown;
Break;
end;
end;
case FAllowNew of
anNo:
if FSelectedItem= -1 then
begin
UTF8Delete(FText, FCursorPos, 1);
Dec(FCursorPos);
end;
anAsk,anYes:
if FSelectedItem= -1 then
begin
FNewItem:= True;
end;
end;
end;
FCursorPos := UTF8Length(FText);
FSelStart := FCursorPos;
Result := FText;
end
else
if (FocusItem > 0) and (FocusItem <= FItems.Count) then
Result := FItems.Strings[FocusItem-1]
else
Result := '';
end;
function TfpgAbstractEditCombo.HasText: boolean;
begin
Result := FocusItem > 0;
end;
procedure TfpgAbstractEditCombo.DoDropDown;
var
ddw: TDropDownWindow;
rowcount, i: integer;
begin
if (not Assigned(FDropDown)) or (not FDropDown.HasHandle) then
begin
FreeAndNil(FDropDown);
OriginalFocusRoot := FocusRootWidget;
FDropDown := TDropDownWindow.Create(nil);
ddw := TDropDownWindow(FDropDown);
ddw.Width := Width;
ddw.CallerWidget := self;
ddw.ListBox.OnSelect := @InternalListBoxSelect;
// Assign combobox text items to internal listbox
if FAutoCompletion then
begin
for i := 0 to FItems.Count - 1 do
if SameText(UTF8Copy(FItems.Strings[i], 1, UTF8Length(FText)), FText) then
ddw.ListBox.Items.Add(FItems.Strings[i]);
end
else
ddw.ListBox.Items.Assign(FItems);
// adjust the height of the dropdown
rowcount := ddw.ListBox.Items.Count;
if rowcount > FDropDownCount then
rowcount := FDropDownCount;
if rowcount < 1 then
rowcount := 1;
ddw.Height := (ddw.ListBox.RowHeight * rowcount) + 4;
// set default focusitem
ddw.ListBox.FocusItem := FFocusItem;
ddw.DontCloseWidget := self; // now we can control when the popup window closes
ddw.ShowAt(Parent, Left, Top+Height);
// ddw.ListBox.SetFocus;
end
else
begin
FBtnPressed := False;
ddw := TDropDownWindow(FDropDown);
ddw.Close;
FreeAndNil(FDropDown);
end;
end;
procedure TfpgAbstractEditCombo.InternalBtnClick(Sender: TObject);
begin
DoDropDown;
end;
procedure TfpgAbstractEditCombo.InternalListBoxSelect(Sender: TObject);
var
i: Integer;
begin
for i := 0 to Items.Count-1 do
begin
// Items is 0-based and FocusItem is 1-based
if Items[i]= TDropDownWindow(FDropDown).ListBox.Items[TDropDownWindow(FDropDown).ListBox.FocusItem-1] then
begin
FFocusItem := i+1;
Break;
end;
end;
FDropDown.Close;
if HasHandle then
Repaint;
if Assigned(FOnChange) then
FOnChange(self);
end;
{ Focusitem is 1 based and NOT 0 based like the Delphi ItemIndex property.
So at startup, FocusItem = 0 which means nothing is selected. If
FocusItem = 1 it means the first item is selected etc. }
procedure TfpgAbstractEditCombo.SetFocusItem(const AValue: integer);
begin
if FFocusItem = AValue then
Exit; //==>
FFocusItem := AValue;
// do some limit check corrections
if FFocusItem < 0 then
FFocusItem := 0 // nothing is selected
else if FFocusItem > FItems.Count then
FFocusItem := FItems.Count;
RePaint;
end;
procedure TfpgAbstractEditCombo.SetFontDesc(const AValue: string);
begin
FFont.Free;
FFont := fpgGetFont(AValue);
RePaint;
end;
procedure TfpgAbstractEditCombo.SetText(const AValue: string);
var
i: integer;
begin
if AValue = '' then
SetFocusItem(0) // nothing selected
else
begin
for i := 0 to FItems.Count - 1 do
begin
if SameText(UTF8Copy(FItems.Strings[i], 1, UTF8Length(AVAlue)), AValue) then
begin
SetFocusItem(i+1); // our FocusItem is 1-based. TStringList is 0-based.
Break;
end;
end;
// if we get here, we didn't find a match
SetFocusItem(0);
end;
end;
procedure TfpgAbstractEditCombo.SetWidth(const AValue: TfpgCoord);
begin
inherited;
CalculateInternalButtonRect;
RePaint;
end;
procedure TfpgAbstractEditCombo.CalculateInternalButtonRect;
begin
FInternalBtnRect.SetRect(Width - Min(Height, 20), 2, Min(Height, 20)-2,
Height-4);
end;
procedure TfpgAbstractEditCombo.MsgPopupClose(var msg: TfpgMessageRec);
begin
DoDropDown;
end;
procedure TfpgAbstractEditCombo.SetHeight(const AValue: TfpgCoord);
begin
inherited;
CalculateInternalButtonRect;
RePaint;
end;
procedure TfpgAbstractEditCombo.HandleKeyChar(var AText: TfpgChar;
var shiftstate: TShiftState; var consumed: Boolean);
var
s: string;
prevval: string;
begin
prevval := FText;
s := UTF8Encode(AText);
consumed := False;
// Handle only printable characters
// Note: This is not UTF-8 compliant!
if (Ord(AText[1]) > 31) and (Ord(AText[1]) < 256) and (Ord(AText[1]) <> 127) or (Length(AText) > 1) then
begin
if (FMaxLength <= 0) or (UTF8Length(FText) < FMaxLength) then
begin
UTF8Insert(s, FText, FCursorPos + UTF8Length(s));
Inc(FCursorPos);
FSelStart := FCursorPos;
end;
consumed := True;
end;
if prevval <> FText then
if Assigned(FOnChange) then
FOnChange(self);
if consumed then
RePaint
else
inherited HandleKeyChar(AText, shiftstate, consumed);
end;
procedure TfpgAbstractEditCombo.HandleKeyPress(var keycode: word;
var shiftstate: TShiftState; var consumed: boolean);
var
hasChanged: boolean;
begin
hasChanged := False;
consumed := True;
case keycode of
keyBackSpace:
begin
if HasText then
FocusItem:= 0;
if FCursorPos > 0 then
begin
UTF8Delete(FText, FCursorPos, 1);
Dec(FCursorPos);
hasChanged := True;
end;// backspace
end;
keyDelete:
begin
if HasText then
FocusItem:= 0;
FSelectedItem:= -2; // detects delete has been pressed
hasChanged := True;
end;
keyReturn:
begin
if FSelectedItem > -1 then
SetText(Items[FSelectedItem])
else
SetText('');
FSelectedItem:= -4; // detects return has been pressed (must be 4 due to number of repaints)
if FNewItem and (FAllowNew = anYes) then
FItems.Add(FText);
end;
else
begin
Consumed := False;
end;
end;
if Consumed then
begin
FSelStart := FCursorPos;
FSelOffset := 0;
end;
if consumed then
RePaint
else
inherited;
if hasChanged then
if Assigned(FOnChange) then
FOnChange(self);
end;
procedure TfpgAbstractEditCombo.HandleLMouseDown(x, y: integer;
shiftstate: TShiftState);
begin
inherited HandleLMouseDown(x, y, shiftstate);
// button state is down only if user clicked in the button rectangle.
FBtnPressed := PtInRect(FInternalBtnRect, Point(x, y));
if not FAutoCompletion then
begin
PaintInternalButton;
DoDropDown;
end
else if FBtnPressed then
begin
PaintInternalButton;
DoDropDown;
end;
end;
procedure TfpgAbstractEditCombo.HandleLMouseUp(x, y: integer;
shiftstate: TShiftState);
begin
inherited HandleLMouseUp(x, y, shiftstate);
FBtnPressed := False;
PaintInternalButton;
end;
procedure TfpgAbstractEditCombo.HandleResize(awidth, aheight: TfpgCoord);
begin
inherited HandleResize(awidth, aheight);
CalculateInternalButtonRect;
end;
procedure TfpgAbstractEditCombo.HandlePaint;
var
r: TfpgRect;
tw, tw2, st, len: integer;
Texte: string;
// paint selection rectangle
procedure DrawSelection;
var
lcolor: TfpgColor;
begin
if Focused then
begin
lcolor := clSelection;
Canvas.SetTextColor(clSelectionText);
end
else
begin
lcolor := clInactiveSel;
Canvas.SetTextColor(clText1);
end;
len := FSelOffset;
st := FSelStart;
if len < 0 then
begin
st := st + len;
len := -len;
end;
tw := FFont.TextWidth(UTF8Copy(Items[FSelectedItem], 1, st));
tw2 := FFont.TextWidth(UTF8Copy(Items[FSelectedItem], 1, st + len));
Canvas.XORFillRectangle(fpgColorToRGB(lcolor) xor $FFFFFF,
-FDrawOffset + FMargin + tw, 3, tw2 - tw, FFont.Height);
end;
begin
Canvas.BeginDraw;
// inherited HandlePaint;
Canvas.ClearClipRect;
r.SetRect(0, 0, Width, Height);
Canvas.DrawControlFrame(r);
// internal background rectangle (without frame)
InflateRect(r, -2, -2);
Canvas.SetClipRect(r);
// paint the fake dropdown button
PaintInternalButton;
Dec(r.Width, FInternalBtnRect.Width);
Canvas.SetClipRect(r);
Canvas.SetFont(Font);
if not AutoCompletion then
if Focused then
begin
Canvas.SetColor(clSelection);
Canvas.SetTextColor(clSelectionText);
InflateRect(r, -1, -1);
end
else
begin
if Enabled then
Canvas.SetColor(FBackgroundColor)
else
Canvas.SetColor(clWindowBackground);
Canvas.SetTextColor(FTextColor);
end
else
begin
if Enabled then
Canvas.SetColor(FBackgroundColor)
else
Canvas.SetColor(clWindowBackground);
Canvas.SetTextColor(FTextColor);
end;
Canvas.FillRectangle(r);
// Draw select item's text
if not AutoCompletion then
begin
if HasText then
fpgStyle.DrawString(Canvas, FMargin+1, FMargin, Text, Enabled);
end
else
begin
if HasText then
begin
FSelOffset:= 0;
fpgStyle.DrawString(Canvas, FMargin+1, FMargin, Text, Enabled);
end
else
begin
Texte:= Text;
if Texte <> '' then
if FSelectedItem > -1 then
begin
FSelOffset:= FFont.TextWidth(UTF8Copy(Items[FSelectedItem], UTF8Length(FText) + 1,
UTF8Length(Items[FSelectedItem]) - UTF8Length(FText)));
fpgStyle.DrawString(Canvas, FMargin+1, FMargin, FText + UTF8Copy(Items[FSelectedItem],
UTF8Length(FText) + 1, UTF8Length(Items[FSelectedItem]) - UTF8Length(FText)), Enabled);
end
else
begin
FSelOffset:= 0;
fpgStyle.DrawString(Canvas, FMargin+1, FMargin, FText, Enabled);
end;
end;
if Focused then
begin
// drawing selection
if FSelOffset <> 0 then
DrawSelection;
// drawing cursor
FCursorPos:= UTF8Length(FText);
tw := FFont.TextWidth(UTF8Copy(FText, 1, FCursorPos));
fpgCaret.SetCaret(Canvas, -FDrawOffset + FMargin + tw, 3, fpgCaret.Width, FFont.Height);
end
else
fpgCaret.UnSetCaret(Canvas);
end;
Canvas.EndDraw;
end;
procedure TfpgAbstractEditCombo.PaintInternalButton;
var
ar: TfpgRect;
btnflags: TFButtonFlags;
begin
Canvas.BeginDraw;
btnflags := [];
ar := FInternalBtnRect;
InflateRect(ar, -2, -2);
if FBtnPressed then
begin
Include(btnflags, btnIsPressed);
OffsetRect(ar, 1, 1);
end;
// paint button face
fpgStyle.DrawButtonFace(Canvas,
FInternalBtnRect.Left,
FInternalBtnRect.Top,
FInternalBtnRect.Width,
FInternalBtnRect.Height, btnflags);
if Enabled then
Canvas.SetColor(clText1)
else
begin
Canvas.SetColor(clShadow1);
end;
// paint arrow
fpgStyle.DrawDirectionArrow(Canvas, ar.Left, ar.Top, ar.Width, ar.Height, 1);
Canvas.EndDraw(FInternalBtnRect);
end;
constructor TfpgAbstractEditCombo.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FFont := fpgGetFont('#List');
FBackgroundColor := clBoxColor;
FTextColor := Parent.TextColor;
FDropDownCount := 8;
FWidth := 120;
FHeight := FFont.Height + 6;
FFocusItem := 0; // nothing is selected
FMargin := 3;
FFocusable := True;
FBtnPressed := False;
FAutocompletion := False;
FText := '';
FCursorPos := UTF8Length(FText);
FSelStart := FCursorPos;
FSelOffset := 0;
FDrawOffset := 0;
FSelectedItem := -1; // to allow typing if list is empty
FNewItem := False;
FItems := TStringList.Create;
CalculateInternalButtonRect;
FOnChange := nil;
end;
destructor TfpgAbstractEditCombo.Destroy;
begin
FDropDown.Free;
FItems.Free;
FFont.Free;
inherited Destroy;
end;
procedure TfpgAbstractEditCombo.Update;
begin
FFocusItem := 0;
Repaint;
end;
end.
|