Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Khabarakh,
1. Mai 2005
Wenn ich deinen Code nicht völlig missverstanden habe, sollte es etwa so gehen:
TForm1 =
private
BlueBit, YellowBit, PinkBit: TBitmap;
//OnCreate
BlueBit := TBitmap.Create;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Khabarakh,
1. Mai 2005
Wie du meinst. Ich kann dir nur sagen, dass das Laden von Bildern beim OnEnter/OnExit eines Custom-Buttons bei einem meiner Programme dieses für ca. eine halbe Sekunde zum Erliegen gebracht hat, das Kopieren eines Bitmaps gerade bei kleineren Bildern jedoch fast in Nullzeit passiert.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Khabarakh,
1. Mai 2005
Schonmal was von Codeeinrückung gehört :gruebel: ?
Du hast da ziemlich viele unnütze Blöcke:
begin if counter<=c637n Then begin
Form1.Image12.Picture := nil;
Form1.Label12.font.color:=CLgreen;
Form1.Label12.Caption:=''
end;
begin if counter=c637b Then begin
Form1.Image12.Picture.LoadFromFile(PChar(ExtractFilePath(ParamStr(0))) + 'Chipblau.bmp'); //////////die Bilder erscheinen...