Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by BullsEye,
16. Dez 2007
nunja, das mag sein aber es läuft ersteinmal, und das ist das wichtigste^^
Aber ich glaube wenn wir nur einen Fall haben ist ein Begin & End unwichtig oder?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by BullsEye,
15. Dez 2007
uses uxTheme, commctrl;
procedure TfrmEinstellungen.btnFarbeClick(Sender: TObject);
begin
if uxTheme.IsThemeActive then
uxTheme.SetWindowTheme(frmMain.pbLeft.Handle, '', '');
uxTheme.SetWindowTheme(frmMain.pbRight.Handle, '', '');
frmMain.pbLeft.Brush.color := clTeal;
SendMessage(frmMain.pbLeft.Handle, PBM_SETBARCOLOR, 0, clblue);
frmMain.pbRight.Brush.color := clTeal;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by BullsEye,
15. Dez 2007
Hm ich werd da nochmal schauen.
Aber danke euch erstmal ;)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by BullsEye,
14. Dez 2007
mit Hilfe von SwissDelphiCenter bin ich nun auf folgenden Code bekommen
frmMain.pbLeft.Brush.color := clTeal;
SendMessage(frmMain.pbLeft.Handle, PBM_SETBARCOLOR, 0, clblue);
frmMain.pbRight.Brush.color := clTeal;
SendMessage(frmMain.pbRight.Handle, PBM_SETBARCOLOR, 0, clblue);
Allerdings scheint der auch nicht wirklich zu funtkionieren?!
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by BullsEye,
14. Dez 2007
Im Objectinspector lässt diese sich auch nicht ändern.
Ja hab ich.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by BullsEye,
14. Dez 2007
Auf nen Button klick (bis jetzt ist das noch so*) soll die Farbe zweier Progress Bars geändert werden.
Aber irgendwie geht das nicht. Oder gibts da noch vllt ne andere Möglichkeit?
Bis jetzt hab ich folgendes:
uses CommCtrl;
procedure TfrmEinstellungen.btnPGBFarbeClick(Sender: TObject);
begin
frmMain.pbLeft.Perform(PBM_SETBARCOLOR, -1, clblue);