SubClassed Control

[EWeiss]

Auch wenn da nicht gerade viele Meinungen kommen.
Werde das teil mal um ComboBoxen erweitern und zu Ctrl_Hook umbenennen.

Hab im moment eh nix zu tun.

Muss das Frame und das Bitmap noch Rendern dann passt das schon

gruss

[Thom]

Zitat von EWeiss:

Auch wenn da nicht gerade viele Meinungen kommen.

Ich finde Deine Arbeit toll! Mach' bitte weiter so! Mit Deinem Piano kann ich leider nicht allzuviel anfangen - ich bin nämlich völlkommen unmusikalisch -, aber auch dort bin ich von der Grafik und der gesamten Gestaltung total begeistert.

[EWeiss]

Zitat von Thom:

Zitat von EWeiss:

Auch wenn da nicht gerade viele Meinungen kommen.

Ich finde Deine Arbeit toll! Mach' bitte weiter so! Mit Deinem Piano kann ich leider nicht allzuviel anfangen - ich bin nämlich völlkommen unmusikalisch -, aber auch dort bin ich von der Grafik und der gesamten Gestaltung total begeistert.

Ich bekomme meine Arbeit schon verteilt habe ja auch noch Anhänger im Chinesischen Raum

Sieht jetzt in etwa so aus!

Delphi-Quellcode:

  ScrbMemoHook: IHookedScrollbar;
  ComboHook   : IHookedCombo;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  FilePath: string;
begin

  ScrbMemoHook := HookedScroolBar_Create;
  if assigned(ScrbMemoHook) then
  begin
    FilePath := ExtractFilePath(ParamStr(0));

    // Memo1
    // Vertikale ScrollBar Images
    ScrbMemoHook.VTrack := ScrbMemoHook.CreateImageFromFile(FilePath + 'ScrollBarSkin\VTrack.png');
    ScrbMemoHook.VBtnUp := ScrbMemoHook.CreateImageFromFile(FilePath + 'ScrollBarSkin\VBtnUp.png');
    ScrbMemoHook.VThumb := ScrbMemoHook.CreateImageFromFile(FilePath + 'ScrollBarSkin\VThumb.png');
    ScrbMemoHook.VBtnDown := ScrbMemoHook.CreateImageFromFile(FilePath + 'ScrollBarSkin\VBtnDown.png');

    // Horizontale ScrollBar Images
    ScrbMemoHook.HTrack := ScrbMemoHook.CreateImageFromFile(FilePath + 'ScrollBarSkin\HTrack.png');
    ScrbMemoHook.HBtnLeft := ScrbMemoHook.CreateImageFromFile(FilePath + 'ScrollBarSkin\HBtnLeft.png');
    ScrbMemoHook.HThumb := ScrbMemoHook.CreateImageFromFile(FilePath + 'ScrollBarSkin\HThumb.png');
    ScrbMemoHook.HBtnRight := ScrbMemoHook.CreateImageFromFile(FilePath + 'ScrollBarSkin\HBtnRight.png');

    ScrbMemoHook.Sizer := ScrbMemoHook.CreateImageFromFile(FilePath + 'ScrollBarSkin\Sizer.png');

    ScrbMemoHook.SetScrollBarObj(Memo1);
    ScrbMemoHook.Connect;
  end;

  ComboHook := HookedCombo_Create;
  if assigned(ComboHook) then
  begin
    ComboHook.ComboImg := ScrbMemoHook.CreateImageFromFile(FilePath + 'ScrollBarSkin\Combo.png');
    ComboHook.FrameColor := $FCAC65;
    ComboHook.FrameHighLite := $FFE9D6;

    ComboHook.SetComboParentObj(self);
    ComboHook.Connect;
  end;

end;

Kann man dann wie vorher auch mit ComboBox, DriveCombobox usw.. machen.
Nur in diesen Fall erstelle ich eine Collection also enumeriere alle Controls die eine Combo enthalten
und verarbeite die in einem Rutsch.
Deshalb übergebe ich diesmal als Object 'self' das erleichtert mir das parsen.

gruss

[EWeiss]

Neue Version oben ..
Verwendung auf eigene Gefahr!

gruss

[wicht]

Ich finde das Ding auch schick - auch wenn ich nicht denke, dass ich es benutzen werde, gibt einfach nichts von mir wo es reinpassen würde.
Für das Open-Source gibt es übrigens !

[EWeiss]

Zitat von wicht:

Ich finde das Ding auch schick - auch wenn ich nicht denke, dass ich es benutzen werde, gibt einfach nichts von mir wo es reinpassen würde.
Für das Open-Source gibt es übrigens !

Danke ...
Ein paar kleine Sachen werden da wohl noch im argen sein.
Aber das kann ja jeder oder einer selber fixen wenn er was findet.

Bin nur Hobby Schreiber

PS:
Auch wenn da Hook steht mit Hook hat es im eigentlichen Sinne nichts zu tun.

gruss

[EWeiss]

ne neue MouseWheel für ScrollBars addiert.
Wenn ich in der nächsten zeit noch Bock hab dann implementiere ich noch die Checkboxen

gruss