Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by moelski,
28. Aug 2007
Moin !
Problem gelöst :zwinker:
Wenn der Berg nicht zu mir will muss ich zum Berg oder wie war das noch :gruebel:
Also, man setze den Font der ListBox auf Bold ...
Und dann nur das hier:
procedure TDemoForm.ListViewCustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by moelski,
28. Aug 2007
Moin !
Hmm, das ist interessant.
Dein Projekt tut bei mir auch nicht ....
Kann es sein das unter D2007 die Sache etwas anders muss ?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by moelski,
27. Aug 2007
Moin !
Moin Code ... UARGH ...
Das ist in unsere Anwendung. Alles wird schwierig, aber ich poste mal das relevante ...
procedure TGeraetPort_Form.FillSelectBox;
var AppPath, INIFile : String;
_i : Integer;
DeviceINI : TINIFile;
Name, Hersteller : String;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by moelski,
27. Aug 2007
Moin !
Nö auch in diesem Fall ist leider die zweite Spalte Fett.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by moelski,
27. Aug 2007
Moin !
Ich habe ein ListView mit 3 Spalten. Die erste Spalte hätte ich gerne in Fett.
Habe dazu diesen Code verwendet:
procedure TGeraetPort_Form.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if (Item=nil) then Exit;
Sender.Canvas.Font.Style := ;
end;